Frogram Names File Erase Utility 
Frogrnamerm's$ Names George Chambers 


ດແຜ? Original Program 

Keyed by: George Chambers 

Date Keyed: Scarborough, Ontario, 1988 
Note: Larken utility 


PROGRAM LISTING 


100 REM File Erase Utility v1.0 for the LARKEN system 

110 REM By G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA MIKE 2Y1 

120 REM Use to erase unwanted files from a disk 

1:30 REM Data statements contain Drive Control Code. 

140 REM For use with the Dk AO system of 5090 bytes/track 


using a DD drive iam. ຜດ tracks 

150 RANDOMIZE USA 100: OPEN #4, "dei" 

170 RESTORE VAL "210" 

180 FOR ກະໄດ "6F000" TO VAL "6éX047" 

190 READ a: FORE naa 

200 NEXT n 

210 DATA 195,43,246,0,0,0,0,0,0,242,205,98,0,201,58 

20 DATA 100,0,291,:201,:2053,::3,246,509,176,92,950,29,232,205,126 
S50 DATA 0,205,1:223,0,:23,112,352,17,1956,224,1,0,20,237,176 

240 DATA 195,358,246 

260 DIM c# (96) 

270 DIM d£c?0,10) 

290 LET traceVAL "25720": LET loadbufsVAL "6S000" 

290 LET namesVaL "37688" 

AO00 BORDER FI/PIs PAPER FPI/FIs: CLS 

420 PRINT AT VAL "2",VàÀL "7"s INE VAL "S"s PAPER VAL "6"; "LARKE 
N DISK UTILITY"; PAPER PI/FI:;,,TAB VAL "7"s PAPER VAL "6"s"File 
Erase Facility": PAPER VAL "1",,TAàB VAL "7" PAFER VAL "6": "By 
George Chamber a" 

A0 INK VAL "X": PLOT NOT PFI,VAÀL "108": DRAW NOT PI VAL "62": D 
RAW VAL "255",NOT Pir DRAW NOT FPI, YAL "-62": DRAW VAL "-2955",.NQT 
FT 

440 INE VAL "6": PLOT VAL BP VAL "114": DRAW NOT FI,VAL "SO": 
DRAW Mol "2356", NOT Fis DRAW NOT PFI,VAL "SO": DRAW VAL "258" ,NO 
T Pfs INK VAL "7" 

245 INPUT "Select Drive (#O-2) "ades PRINT $4: GO TO dr 

AQ PRINT AT 106,25 "Drive "ados" now engaged" 

Vu PRINT '''"Ingetall disk needing erasures". wee then Press 


a key"'s FAUSE NOT FI 

260 REM Picking pom names from buffer (Track ©) 

470 PORE traca NOT Fils RANDOMIZE USR loadbuf 

290 PRINT AT VAL "10",NOT FIs ce! os 

2581 FRINT AT 10,04 

490 FOR ms FI/FPI TO YAL "9o" 

400 LET en 

410 IF ວແລະ (name-45)zNOT PI THEN LET esn-1: LET meVAL "90": (GO 
TO VAL "ABU" 

420 IF PEEK (mamet PIZPD YAL "294" THEN LET namesnamet VAL. "X4"; 
GO TO VAL "410" 

420 FOR mF IZPI TO VAL "9" 

440 LET d£(n,m)sCHREX FEER Crame+m) 

450 NEXT m 

460 LET namesnametrVAL "a4! 

470 FRINT cd€(n): 

474 IF INT (n/X)mwmin/3) THEN PRINT 

ABO NEXT n 

490 FRINT ເ PRINT 

300 DIM FEVAL "ni 

ະ“) FOR n-sPI/FI TO e 

340 LET +#ະໆ# (ກ) 

DAD POKE 27608,0: LET r#e"N"s PRINT AT 21,9:: DELETE "fts" Y/N 
"s PAUSE Os LET REsINEKEYX 

$46 IF e#e"y" THEN PRINT #4: ERASE f$, 

690 BEEF VAL ".,1",VAL "LO": BEEP VAL ",1",UAL "lo" 

700 NEXT n 

720 PRINT AT VAL "16",UVAL "S" "ALL programs reviewed"'''" Frags 
ENTER for another stact,"''" Press ""P"" for RAMdisk menu's PAU 
Sh oO 

20 IF INHEYSz"p" OR INKEY#="F" THEN PRINT #4: GO TO 4: FRINT # 

4: NEW 

740 GO TO VAL "280" 
BOOO INK Os FAFER 7: BORDER 7: CLS « LIST 
8999 STOF 
FOJO CLEAR : CLS s: LET odz4: PRINT AT 15,93 "SAVE ROUTINE" "H Pre 
$us າການກ key to save to digsk,"''" Qc ""T"" key to save to tap 
ຜູ" ເ PAUSE © 
9010 IF INKEYZXs"t" OR INEEYZzc'"T" THEN LET ocds2 
9020 PRINT sod: SAVE "erase. HI" LINE 1 


Program Names Program Loader Utility v. 1.1 
Programerm's Name: George Chambers 


Source: Original Program 

keyed by: George Chambers 

Date Keyed: Scarborough, Ontario, 1988 
Notet Larken utility 


PROGRAM LISTING 


100 REM Frogram Loader Utility v1.0 for the LAREKEN syst 
EU REM Hy G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA MIE 2Y1 
120 REM Use to erase unwanted files from a disk 
1:30 REN Data statements contain Drive Control Code. 
140 REM For use with the DSk400 system of 5090 bytes/track 


using a DD drive i.e.80 tracks 

150 RANDOMIZE USR 100: OFEN #4, "dd" 

140 PRINT 44: GO TO 0 

170 RESTORE VAL "210" 

180 FOR m=VAL "63000" TO VAL "63047" 

190 READ as PORE n,a 

200 NEXT n 

210 DATA 195,43,246,0,0,0,0,0,0,243,205,98,0,201,258 

m2 DATA 100,0,251,201,205,33,246,58,176,92,50,29, 22,205,126 
2390 DATA 9,205,122,0,25,112,372,17,156,224,1,90,20,237,176 

240 DATA 195, 38, 246 

260 LET c=" " 

470 DIM d£*£(90,10) 

280 LET trac=VAL "22728": LET loadbuf=VAL "62000" 

290 LET nmname=VAL "37683" 

500 BORDER PIZPI: PAPER FI/FI s CLS 

320 FRINT AT VAL "2" VOL "7"s INE VAL "2" PAPER VAL "6": "LARKE 
N DISK UTILITY": PAPER PI/FI:,,TABM VAL "S's PAPER VAL "6" "Progr 
am Loader Facility": PObER VAL "1",,TAB VAL "Z", PAPER VAL "6": " 
Ry George Chambers” 

ook INK VAL "S's PLOT NOT PI, YAL "1LO8"s DRAW NOT FPI,VAL "62": D 
RAW VAL "aww ra NOT PI: DRAW NOT PI YAL "-62"s: DRAW VAL "255", NOT 
P1 

440 INE VAL "6": PLOT VAL "BYVAL "114": DRAW NOT FI,VAL "SO": 
DRAW VAL. "228" NOT FI: DRAW NOT PI,VAL "50%: DRAW VAL "-2328",NO 
T Pin INK VAL "7" 

S45 INFUT "Drive No.? (0-2) "dr: PRINT #4: GO TO dr 

A590 PRINT '''"Place disk in Drive "“sdr'" «a then Frese a 


key"'s: PAUSE NOT FI 
A60 REM Picking pgm names from buffer (Track ຜ) 
470 FORE trac, NOT PI: RANDOMIZE USR loadbuf 
580 FRINT AT VAL "LO" NOT Piya’ c# ce 
201 PRINT AT 10,035 
490 FOR ຕະ PI/FI TO VAL "9o" 
400 LET esn 
410 IF PEEK (name5)zNOT PI THEN LET esmei: LET n=VAL "90": DU 
TO VAL "400" 
420 IF FEEK (nametPI/PI)=VAL "254" THEN LET name=namet+VAL "34": 
30 TO VAL "410" 
AQ FOR msPI/PI TO VAL "ni 
440 LET d# (n,m) =CHRE DEER (name+m) 
490 NEXT m 
440 LET namesname-c-VAL. "34" 
470 PRINT d£n):s 
474 IF INT (n/S)s(n/3) THEM PRINT 
430 NEXT n 
490 PRINT ເ PRINT 
WOO REM DIM fT£€(VAL າຫາ) 
wel FÜR ກະຕ] / ຜ໌ TO e 
Sd LET fate" 
ວ4< FOR T=9 TO 1 STEP ~i: IF D¥(N,T)<>" " THEN GO TO S44 
cas NEXT T 
544 LET F#eDF(n, TO T) 
S45 CLS LEIT rs "N": PRINT AT 10,0:s"Load program "tE" Y/N? 
"s FAUSE Of LET Ags J NEREYE 
S46 IF r£z"Y" OR rës ry” THEN PRINT #4: GO TO 4: PRINT #4: SAVE 
"loader. BI": PRINT #4: GO TO Os PRINT #4: LOAD f£ 
690 BEEF VAL. ".1",VAL "I0": BEEF VAL ".1",VAL "1o" 
700 NEXT n 
720 CLS s PRINT AT VAL "15",VAL "4"; "AlI programs reviewed" "IP 
ress a key for another start! ''" Prese "bin for RAMdisk menu": 
FAUSE NOT FI 
730 IF INKEY#="p" OR INEKEYZz"P" THEN PRINT #4: GO TO 4: PRINT # 
4: NEW 
740 GO TO VAL "280" 
8000 INE Os PAPER 7: BORDER 7s CLS : LIST 
Bog STOF 
9000 CLS : LET odzs4: PRINT AT 18,9. "SAVE ROUTINE"''" Presse "Din" 
key to gave to disk,"''" or ""T"" key to gave to tapes PAUS 
E Q 
9010 IF INKEYZS$z"t" OR INEEYÆ=" 7" THEN LET od=2 
9020 PRINT sod: SAVE "Loader. Bil" LINE 1 


Frogram Names 
“ຕ amer e Names 
Dour Ce 

Keyed bys 

Date Keyed: 


File Recovery Utility for LEDOS 
George Chambers 

Original Program 

George Chambers 

Scarborough, Ontario, 1988 


Notes Larkan utility for DSDD drive only 
PROGRAM LISTING 
100 REM File Recovery Utility for the LAREFEN system 
110 REM By G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA Mik 2Y1 
120 REM Use to recover an accidentally erased file 
130 REM Data statements contain the"RHMDOS,.C2" Code. 


140 REM For use w 


ith the DSkEA4oO0 system of 5090 bytes/track. 


Single], doubler, or (uad-. 


150 GO TO 170 


160 CLEAR : RANDOMIZE USRA 100: SAVE "recovr.Hi" LINE 170 


170 RESTORE 210 
180 FOR m=43000 T 


QO 63104 


190 READ as FOKE n,a 


200 NEXT n 


210 DATA 195,435,246, 195,72, 246,195, 104,246, 245,205,98,0,201,58 


220 DATA 100,0,25 
2*0 DATA 0,205,122 


51,201,205,22,246,58,176,92,50, 29,122,205, 126 
Da dera 112.2417, 196,224, 1 ,0,20,23 S7 4 176 


240 DATA 1 9), E 205 , #: Ae he y າ ງ 1 76, o 50, ie a 32,23, 156, 224 
250 DATA 17,112,22,1,0,20,227, 175,208,150,0,205,126,0,205 


240 DATA 120, O, 195 
270 DATA 112,22,1 


a m 246,208, 33,246, 208, 129, yv dues Rt p 


280 DIM e*09)s DIM 'as(9)1 DIM ວ. DIM eco) DIM di (25 » 


290) LET tracme23272 
&avelbufsá6:3005X 


£v LET nexttrackes&xo06s LET loadbufsesooo: LET 


A00 BORDER 1: PAPER 1: CLS 
A10 LET ate" RETURN " 


220 PRINT AT 2,6; 
C າ TAB Ss PAPER 4: 


INK 2$ PAPER ຜະ "LAREENM DISK UTILITY"s PAPER 1 
"Deleted File Recovery": PFAFER 1,,TAB 6: FAOFER 


6i "By George Chambers" 


330 INK Z: FLOT O, 


າ PRI E . ©) 


240 INE 6: FLOT 8, 


Uds INK 7 
245 INFUT "Derive 


S50 PRINT AT 10,03 


1060: DRAW 0,62: DRAW 255,01: DRAW O,~-62: DRAW 
114: DRAW 0,50: DRAW 220,0: DRAW O,-50: DRAW 


#(O—2) ຕ Pader: PRINT #4: GO TO dr 
dënnt 14,13 "Insert disk with deleted file"''T 


AB log"in Drive "sdr? and Press any key to start": PAUSE o 
460 REM Search of tracks for erased file 

270 INPUT "Enter the full name of the deleted file "ibt 

ago POKE trac., O: RANDOMIZE USK loadbuf 

S90 LET ZebkEkEk S7SROeREER S57 Sie le 1 

400 PORE trac, li RANDOMIZE USR loadbuf 

410 PRINT AT 10,O0sdc#s AT 10,10; b#,AT 10,2; "Searching tracks for 
program" sAT 13,88 "Track Frogreamn' 

420 PRINT AT 14,93 "Noe. Name” 

4350 FOR n=l TO ¢ 

440 IF mei AND FEEK S75600e0 AND PEER 575010 THEN LET n:s79s FRI 
NT AT IO, 0d AT 11,143 PAPER 74 INE ລູ "File name not found on tr 
acke"s PAUSE os: STOF 

450 WET ຕະກາ 

440 FOR mei TO 9 

470 LET ໄດ) =CHRE PEEK (C357501-4m? 

4900 NEXT m 

WOO PRINT AT 16,9:ns TAR Leg 

910 IF afsbt THEN LET nef 

QU TF meet THEN RANDOMIZE USR nex«xttüreack 

ao NEXT n 

40 REM Search for deleted name in Directory 

wu FORE trac, O: RANDOMIZE USR loadbuf 

De LET g=#S7524-+ed 

970 FORE g,245 

SBO LET c#eb# Cl): LET efsb#(2 TO 0: LET ef=" RETURN "+e 

90 FOR n=S7688 TO 61088 STEP 24 

600 IF PEEK (n+4)=0 AND “ແແ (n+5)=0 THEN PRINT AT 20,3%; FAFER 
78 INE ມລາ "Erased Filename not found"; TAB 9'in Directory": PAUSE 
Oy STOF 

610 FOR m=1 TO 9 

620 LET adm) ະກາຈ PEEK (oem) 

625 NEXT m 

G20 IF eteat THEN LET ລະກາ LET nzéiogg: FORE (ati) CODE c: GO 
TO 640 

640 NEXT n 

650 LET meadi i 

660 FORE m, d 

470 FOR mel TO ສລ 

6380 IF FEER (mtn) =249 THEN LET ຕະ ລະ! GO TO 700 

690 FORE gen, ei? 

700 NEXT n 

710 FRINT AT end AT LO, 3¢ "Program has been restored’ '''' PAF 
ER Dn INE mg" Remove WRITE-FROTECT tab from defective disk and 
install. “ະ Frags a key to save to track ດ "s: PAUSE © 

720 POKE trac, O: RANDOMIZE USR savebuf 

Z0 PRINT AT 11, ຝຣ AT 123,993 "JOB COMPFLETED":6àT 15,10; " Press a 
key","to display recovered filetonily)": PAUSE os CLS 

740 PRINT USR 100: CAT bë, 

750 PRINT ''TAàB 21 "Press ""P"" ໃ RAMdisk menu": PAUSE Os IF I 
NEEYXz"RP" OR TNEEY#s"p" THEN PRINT #4: GO TO 4: PRINT #4: NEW 
760 STOF 

1000: SAVE "recovr" LINE 100 
ຜດ INK Os PAPER 7s BORDER 7: CLS s LIST 


909399 
POO 
key 
EO 
9010 
FORO 


STOF 


CLS : LET ods4: 
to save to disk,"''" ເງ!” 


IF (NkKÉN fent" OR 


FRINT od: 


BAV E 


PRINT AT 15,9; "SAVE ROLTINE"''" Press 


TNREY ga T” 
We ຕນ , N1" 


ໄ! ເເ H 


key to save to tape": 


THEN LET chan 


|... INE 


100 


i "ຖາ n 
FAUS 


Program Name: Disk Doctor Cdector. Bid 
brogramer "e Names George Chambers 


Gour Ces Original Program 

keyed by: George Chambers 

Date keyed: Toronto, Ontario, 1988 
Notes Larken utility 


PROGRAM LISTING 


Q>REM George Chambers, 14 Richome Court 
Scarborough, Ontario CANADA Mik 2Y1 


105 RANDOMIZE USR 100: OFEN "4,"dd" 
106 PRINT #4: GO TO Os LET dre 
108 RESTORE 112 
109 FOR n«44000 TO 44119: READ a: FORE mar NEXT n 
112 DATA 195,249,171,195,7,172,195,27,172,195 
112 DATA 36,172,195,75,172,243,205,98,90, 201 
114 DATA 38,100,060, 251,201,205,239, 171,58, 124 
115 DATA 171,590,29,32,205,126,0,24, 237,205 
116 DATA 239,171 ,58,124,171,590,29, 32,205,129 
117 DATA 0,88,29,32,50, 12 24,171,254,217,2029 
118 DATA 239,171, 175,50, 22, 32,205, 123,0,90 
119 DATA 32,32,79, 6,0,33,112,32,17,80 
129 DATA 195,1,9,290,227,176,24,188,205,239 
121 DATA 171,3 SCENE may 1, 0, 20 
122 DATA 2:37,176,2025,120,0,24,169,205,2239,171 
1232 DATA 42 , 144, 171,78,35,70,24,158,0,0 
160 DIM ak (G40) 
170 LET oorO: LET oasin LET obzs2:s LET oct 
190 LET settrack=VAL. "44000" 
195 LET namesSoidggd 
SQQ LET mexttrack=VAL "44003" 
240 LET load=VAL "44006" 
oo LET gaveeVAL "44009" 
240 LET track=VAL "42900" 
SOL LET drivesVAL "4530 ) " 
260 LET buffer=VAL "SoOoOQ"s LET bufflenth=VAL "S120": 
ellsvaL "SS71"s LET cdiskname=4463 
270 PORE drive,ob 
ZO LET treaeg=VAL "18" 
290 LET side=ob 
200 GO TO VAL "Boao" 
1000 REM Track Used/Free Routine 
10905 CLS : LET numbersoos GO SUB VAL "7500" 


LET laste 


1010 PAPER 6: CLS : LET gez: LET Coon LET otses LET ftzsc 


1O20 LET ແລະວ SOOZOXPEER SO0021 


10:0 PRINT "Dir, "s 

10641 FOR nzesbuffer-VAàL "25" TO buffer+VAL "2h" -kgg 

1050 LET tzFPEERM n 

1060 IF t=VAL "245" THEN PRINT TAB ges INE 2gn-50024:1: LET ge=ge 
kén LET Ztetttroan IF geo29 THEN LET gesl 

1070 IF t€ VAL "245" THEN PRINT TAB ges: INE dign-SOO24:1: LET gesg 
e-4s LET otsottoa: IF ge29 THEN LET oesl 

1100 IF c-VAL "X2" THEN LET cx-NOT c 

1110 NEXT n 

1120 PRINT AT VAL "2O",oag"Tracke Useds "ett? 

1125 PRINT " Disk type "g CS8" AND PEEK 500202123 CDS" AND PEER 


DO ZO Ziel 


1130 
1150 
1170 
1200 
2000 
2010 
2015 
a Qu 


DD" AND PEEK SOO21x«40)4(" QD" AND FEER $S0021:-s800) 
PRINT AT VAL "Si" oar" Tracks Opens "pot 
PRINT #0; TAR 4: "Frese any key for Menu" 
FAUSE oo 

G0 TO VAL "Sooo" 

REM HEADER READER 

LET moe 

CLS s PRINT TAR 10; "DOCTOR. Bi" 

PRINT '" This option displays the file 


information gaved 


on each block along with the data." 


ZU 
OO 
Q0 


PRINT TAB 9; 13646463656 1696 16 564696 € €"! 
FRINT '" TRACH- The track number on disk" 
RR INT NAàME-The file name is saved on 


* dH 


each block for ref 


erence only" 


200 


PRINT '" START-The start address of the file. Useful when 


saving code," 


2060 
S070 
me" 

2075 
20766 
2000 
SUD 


090 


St ເກອກ Fan In BORAT ບບາ Lag (0000 Sit Dt att 00009 Gm PPLA pn DODOS FECES WALDA ອາຈ? EOM getén gea 


2100 
2120 
cy Oo 
2130 
2140 
2190 
2140 
2170 
210 
2190 


QU 


PRINT ຊວາ Track Number Error on Track 


a 
ud an R) 
oT 
SKI 
dads 


AND 


PRINT '" 
PRINT '" 


LENGTH-Total length of file." 
St./L-The Starting address of BASIC progra 


LET chz2: INPUT "Send to Mereen or Printer "s: LINE o? 
IF g#="p" OR gs" P" THEN LET ches 
LET countzoas INPUT "Start at which 
IF count=0 THEN LET counmnts1 


CLS 3 PRINT ຈ້າ; DISKE 


track No.7 "acount 


DATA~HEADER READER € Á——À À€— n 


FRINT ຈາ; "TRACK NAME START LENGTH  $&t./L." 
PRINT AT VAL "21",VAL "7""(OM returns to menu)”: PRINT AT o 
POKE track,counts RANDOMIZE USR settrack 
FRINT ຈຕາ ເ "ຜູ Disk Directory Track" 

FOR t=count TO VAL "79"; 

IF PEEK VAL "S5689""VAaL "7" THEN GO SUE 
IF IN 1600 THEN RANDOMIZE USR settrack 
RANDOMIZE WSR load 

PRINT #ehi PEERK (buffertoa) s TAR VAL 
IF FEER (buffertoadt ຕຕ THEM : IF PEEKE 
"est 
IF PEEK (butter koaisopo THEN PRINT ch: 
FOR a=(buffer+ob) TO (buffer--10) 
PRINT ທາ CHRE PEERK ar 

NEXT a 

LET start=O: FOR a=(buffert+ob) TO 
(FEER ເຊ+1 ) ະຜ່7 OR PEEK (a+1)=65) 


VAL 


" aao tt 


tmm dba 
"ພາ" 4 


(buffertoad<>t THEN 


"2280" 


GO TO VAL 


(buffert1O):s IF FEEK a=46 


THEN LET start=1 


2246 NEXT a 

2290 PRINT ch; TAB VAL "14"sPEERK (Cbuffer+VaAlL "12")-VAàL "356" *PEE 
E (Duffer-e-Val "13")1 

2260 PRINT «sch; TAB VAL "210, PEEKE (buffer+VAL "S2")4+VAL "256"  *PFEE 


HK XGovuffer-t-VAL 


nm) H 


22659 LET slinezFEEK ((bufferti7)-2596*FEEk (buffert*ig))toa 

2271 IF slinesó5335 THEN LET slines-1 

2272 IF setartzO THEN FRINT Sch; TAR 28ssline: GO TO 2280 

ZZ PRINT Sch 

Zéi IF eidesoa THEN LET tztoas FOKE track, (PEEK track) +oa 
2290 RANDOMIZE USR nexttrack 

ລວາດ IF INKEYSe"m" OR INKEYS="M" THEN GO TO VAL "Sooo" 

aalo NEXT t 

ZA FRINT "Last track-Press key for menu": PAUSE oo 

wee GO TO VAL "Sooo" 

2o40 PRINT AT 19,24," Fress any key to continue” 

າກ IF INKEY£z"" THEN GO TO VAL "2350" 

460 IF INKEY£$zs"z" OR INKEYS$z"Z" THEN GO SUB 8100 

ea70 IF INKEY£z"m" OR INKEYXz"M" THEN GO TO VAL "5000" 

220890 PRINT AT VAL "A4",oogat£( TO VAL "544"): PRINT AT oc,o00 
290 RANDOMIZE USR load 

2400 RETURN 

200 REM Rename Program Routine 

2alLO CLS : PRINT AT 1,7s INK Z4 "RENAME A FROGRAM"’ ' 

Ze PRINT #4: CAT ານ, 

eae INFUT "Enter old name in full "so# 

2040 INFUT “Enter new name in full "hs 

ZOO PRINT #4: MOVE of, bt 

ZA CLS ເ PRINT AT 8,1a"The old program name "gf," has been ch 
anged to "h$ 

2/0 PRINT '''" Press a key to return to menu": PAUSE © 

20830 GO TO F000 

2000 REM Dir Analysis Routine 

010 CLS : GO SUB VAL "7500" 

24020 LET numbersoon LET fneoo: LET doo: LET n=buffer+VAL "188" 
O30 PRINT AT 21,0:$"z-copy  cmecont  mzmenu  tztop'" 

4040 PRINT AT oo,oo0:"* Directory / File Data Report sis PRINT 
4050 REM IF PEEK VAL "236809"Z6 THEN FAUSE Os PRINT AT oa,oo0:6*: 


FRINT AT 1,0: 


2060 
2070 
TORE 
ZOO 
4100 
S110 
AL ZU 
A130 
45140 
2190 
5160 
A1 ZO 
5180 
ALSO 
S200 


IF idz"t' 
LET fnefntoa 

FRINT "Filename "ijfns"s"gs TAB 12; 
LET mantoa 


THEN (30 TO 32020 


IF PEEK nz293 THEN GO TO VAL "S130" 

IF PEEK m=VAL. "254" THEN GO TO VAL. "X220" 

PRINT CHRE PEENM m 

GO TO VAL COR" 

PRINT TAB oap Tracker "s 

LET ftsoo 

LET czoo 

LET nsn-toa 

LET ftzft-0a 

IF FEEKR nzVAaL "249" THEN FRINT : GO TO VAL "3240" 


PRINT INK An (PEEK m)”, s 
LET cmsc-toc 


4-410 GO TO VAL "X160" 

oan FRINT "Empty name cell" 

See GO TO VAL "X260" 

A AO PRINT ”-------------.------------------------------------------:--- " AND (d=) 

42542 IF PEEK VAL "23689"<6 THEN FAUSE os IF INKEY#e"c" THEN PRIN 
T AT oa,00;3A#: PRINT AT 1,0: IF if="t" THEN GO TO 3020 

Sede IF INEEY#*>"" THEN GO TO X300 

3260 LET nent 

4270 IF nzbuffer-lastcell THEN FRINT '"Last name cell.Press m fo 
ro menu": FAUSE oos GO TO VAL "Saag" 

220 IF PEEK ne255 THEN GO TO 3050 

4-90 GO TO 2260 

S200 PORE 236980,0:2 LET it=TNKEY* 

wei IF iXz"z" THEN COPY ເ FRINT AT oa, oogats AT oa,oor GO TO 225 
Q 

4420 REM IF idZms'"c'" AND PEER 236896 THEN PRINT FEER 223689: STOF 

DU TO 3050 

meee) IF iXzm" THEN GO TO 5000 

A440 IF iZXz"t" THEN CLS : GO TO FOTO 

2490 30 TO 2232 

4000 REM Track Manipulation Routines 

4010 CLS : LET m=oo 

40:20 PRINT "Examine which track? (0-79) " 

4030 INFUT number 

4040 GO SUB VAL "7300" 

4045 IF numberzcPEER $0001 THEN PRINT AT 1O,23 "Track "agnumberg" 


has not been loaded"'" 
continue": 


40850 
4060 
load 
4070 
40800 
4090 
4100 
4110 
41:20 
41:30 
4140 


RE FEER 
EEK % + ມຫ AND PERR «xo ລຜ) ໄ ໄ 


4150 
4160 
4170 
418900 
41970 
A200 
4:310 
4:220 

big 
4240 
45250) 
A260 
4270 


due to a disk enrrorc"''" Preme a key to 


FAUSE O: GO TO 4000 
GO TO VAL "40980" 
BORDER 6: PRINT INE Of #0." alter back cont dire etc jumpó 
menu name save top zend” 
RETURN 
LS 
G0 SUR 4060 
FOR nzbuffer TO buffertbufflenth STEF 17 
FRINT AT 0,6: FAFER ós"Reading track No "i PEERKE S0001 
PRINT AT 1,298" "SAT 1,1; "adele map byte ehr” 
FOR ven TO n*16 
PRINT «xs TAB 9sx-buffers TAB 17 PEEK wg" "sTAB 253: PRINT CH 
x AND (PEER x31 AND PEER giaa)" AND (Gumberzoó AND P 


NEXT x 

GO TO 4180 
NEXT n 
FORE 235658 
i eal eH 
Sait) br 
1 2 3 ໃ່ 
jX-Us" 
i ະ" /ຖ 

4 £m lipy P 
Leal ~ 

1 kes t ໄງ !! 
i CM ໄ! 


Ter 


PRINT 


LET itet": LET 1 ຫ້ານ ] NEEY# 


AND nzs2:5111 THEN GO TO 4170 


THEN 
THEN 
THEN 
THEN 
THEN 


AND oi 


THEN 
AND 


G0 TO 4000 

GO TO 4310 

GO TO 4620 

GO TO 5000 

LET nzsbuffer-171: GO TO 4170 

=S5O94 THEN LET me=n+l7: GO TO 4170 
LET menm- zad: GO TO 4170 


rages THEN LET nenti: GO TO 4170 


4280 
4289 
4290 
ACCC) 
4310 
A0 


k (N/T)? 


IF i#<"d" THEN LET n=buffertdiskname: GO TO 4170 
IF if="2" THEN LET n=buffertlastcell: GO TO 4170 
IF i#¢="t" THEN LET nzbuf[fer-17: GO TO 4170 

GO TO 4180 

IF INKEY#< >" " THEN GO TO 4310 


FORE 25698,0; LET isSsz""; PRINT AT 20,90; "Change Name or Trac 
"າເ LET i#=(NKEY# 


4530 IF i#eo'n" AND i£Xz2"t" THEN GO TO 4320 
AXAO IF INKEYXz—"" THEN GO TO 4340 
4590 PRINT AT 19,0;"' Select Start address Use keys 
H, Ay, and ENTER" 
4360 LET yzsx-17s5 LET z-2 
43570 PRINT AT 2,163 FLASH 1a" e"s FLASH O 
4385 IF INKEY€z"a" AND 2£18 THEN LET yeyti: FRINT AT 2,163" “AT 
z+i ió: FLASH 1">" FLASH O: LET zez) 
43590 IF INEKEYXz"q" AND z222 THEN LET ysy-1: FRINT AT 2,163" "SAT 
zl ió: FLASH Lanz FLASH Os LET z=2-1 
4400 IF INKEY#@&CHRE 12 THEN LET addr=y: GO TO 4430 
4410 GO TO 4285 
4420 IF addr“buffer OR addrtbufflenth THEN FRINT AT 20,03 "Addres 
< Out of range"'"Fress any key to re-enter": PAUSE O: GO TO 4290 
4430 IF idct" THEN PRINT AT 19,0; INE 2g" 
Enter (2068) to stop ý 
4440 IF iSzc"n" THEN INPUT "Enter Disk Names “gmn: GO TO 4570 
4450 IF i#="t" THEN INFUT "Enter Track numbers "sz: GO TO 4470 
4460 IF i*Xc5"t" AND z£z»"n" THEN GO TO 4420 
4470. IF z-2068 THEN GO TO 4580 
4400 IF PEEK addr=255 OR PEER addr=252 THEN PRINT AT 20,1; INK 2 


"overwriting a marker at 
d (y/n)"1 


4492 
4470 
A00 
42510 
A ao 
ATO 
4540 


NT AT 20,13 
LU wish to continue?iy/n)'": 


ASAS 
4530 

ët 
4570 
42579] 
45,80 
4590 
4600 
4610 
46:220 
46:30 
46440 
4620 
4660 
466970 


"saddrs TAR 32'"Do you wish to continue 
INE Os PAUSE © 

PORE 235658,0: IF INKEY£€z'"n" 
FORE ລຕ: ສ 

IF 22249 THEN GO TO 4580 
LET addr=addr+1. 

GO TO 4450 


THEN GO TO 4580 


FOR asi TO LEN ກຮ 
IF PEEK addr=205 OR FEEk addr=253 OR PEEK addr=249 THEN PRI 


INK 23 "Overwriting a marker at 
INK Os: FAUSE o 
PORE ມດວ ຜ IF INKEY¢e"n" THEN GO TO 4380 
FORE addr CODE n# Ca) 


"addr: TAB 72°" Do yo 


LET addrwacddr +1 

NEXT ລ 

IF addr 34500 THEN PORE addr, © 

CLS : GO SUB 4O060: GO TO 4110 

TF LEN pied THEN LET pDëepëi TO LEN p£f-1) 
FRINT AT lin,23sp*$;ji*X;" ນ 


IF INKEY#< 2" 
GO TO 4580 
IF INKEY£«»'"" 


THEM GO TO 4610 


THEN GO TO 4620 
PONE 2365898,0:s LET i$sINKEYSt 

INFUT "Save to Same or New track"? 
IF INKEYXz5"" THEN GO TO 4660 

IF i¢fe"e" THEN GO TO 4700 


"sid 


4430 


IF iX-"n" THEN GO TO 4720 


4690 IF 1#ະ າແນ OR iXó»"n" THEN GO TO 4640 

4700 GO SUB VAL "7600" 

4710 GO TO VAL "4080" 

4720 INPUT "New track number? "isnumberm 

4750 IF INKEY#<>"" THEN GO TO VAL "4750" 

4760 IF number2VAL "79" THEN GO TO VAL "4680" 

4770 GO SUB VAL "7600" 

4780 GO TO VAL "4080" 

4790 LET p#=p#( TO LEN p-1) 

4300 PRINT AT VAL "18",VAL "20"spfsidSg" "s PAFER VAL "7" 

4810 GO TO VAL "4720" 

4820 COFY 

4320 GO TO VAL "4100" 

SOOO REM Ment 

S010 BORDER obs: INK oo: PAPER 6: CLS 

SoLo PRINT "າ DISE DOCTOR wé, 44" 

S020 REM v2.26 modified FORMAT routine to give default values 
3026 REM v2.27 To correct an error in line 6080 (LET mzsm-oo chan 
ged to LET msm-oa) 

5027 REM modified the rename routine to use the new MOVE commancl 
Ww FRINT " For the TS 2068 *& Larken LEDOS c G.F. Chamb 
erg 

43040 PRINT AT VAL "4", VAL "4"s"1. Tracks Used/Free" 

WOOO PRINT “ກ à. Track Header Reader" 

S00 PRINT “ກ 4. Directory Analysis" 

29070 PRINT '" 4, Examine/Modify a Track" 

2080 PRINT '" D, Program Start/Langths" 

090 PRINT ^" & Rename a Frogram" 

ໄດດ PRINT '" 7. Select Drive (Now Drv "s FLASH oagdrz FLASH 
oo "yu 

5110 PRINT “ກ 8g. Return to Ramdisk menu" 

2113 PRINT '" 9$. Save this Frogram'" 

51 PRINT #1 TAB 7$ FLASH 1"> PRESS A KEY": PAUSE oo 

S130 LET ite I Nee ys 

5140 IF i$2"1" OR ix2"9" THEN GO TO VAL "Sizo'" 

190 IF i#e"1" THEN GO TO VAL "1000" 

160 IF isXzs'2" THEN GO TO VAL "2000" 

WA7O IF iz" THEN GO TO VAL "J000" 

2190 IF isz"4" THEN GO TO VAL. "4000" 

i190 IF idXz"5" THEN GO TO VAL "6000" 

wel IF if="6" THEN GO TO VAL "22500" 

ານພ IF i$5s"7" THEN PRINT AT 21,0045a£( TO S2»): GO SUB VAL "8010" 
DU TO VAL "Sooo" 

wa IF i$e ng" THEN PRINT #4: GO TO 4: PRINT #4: NEW 

Q0 IF izz"9" THEN GO TO 9000 

waodo GTOP 

6000 LET namezsSoóigBgs:s DIM d#(100,9)s DIM d(100) 

6010 CLS : FORE 25658,0 

60:0 INFUT "Disk #7 "s; LINE m# 

6030 LET chee: INPUT "Send to S)creen or Forinter "i LINE gt 
60:32 IF gf="p" OR g£z"P" THEN LET ches 

6040 REM Picking pgm names from butter (Track ລ) 


6050 PORE track,O0: RANDOMIZE USR settracks RANDOMIZE USR load 
6060 PRINT AT 7,10; "Header Reader'"'''TàB Zi "Scanning the Directo 
ry" 
6070 FOR mei TO 100 
640735 LET en 
ONBO IF FEE (mamet To s0 THEN LET exsn-i1s LET m=100: GO TO 6150 
6090 IF ະ (namet1)=254 THEN LET name=namet24: GO TO 6080 
6100 FOR mei TO 9 
6110 LET dé£(in,m)sCHEE€ FERE (nametm? 
6120 NEXT m 
61:29 LET dí(n)sPFEERK (ກສາຕ + 1 1, ) 
61:30 LET nameznamet34 
6140 PRINT AT 12,11sd€n)01" " 
61590 NEXT N 
6180 CLS ເ PRINT $chi "PROGRAM LISTING DISk#:"sn¥# 
6190 FRINT #ch:: "File Name Start Length St./Ln"sAT 1,9; OVER 1 
E Loue ucc ere — ກມລ! A am 
6195 PRINT Sch 
6200 PRINT Son" Fress M for menu" 
42735 IF INKEY#="m" THEN GO TO 9000 
6290 IF PEER 2368944 THEN PRINT #15 AT 0,08 "Continue Menu 
"s PRINT #13AT 1,0:8a£( TO X220: FAUSE ຜ: FRINT #1: ດຕ໌ O,0;," F 
ress M for Menu": PRINT AT SX,O0sa*X0C TO 60802): PRINT AT 3,04 
G300 FOR nei TO e 
6290 PORE track,d(nm)d): RANDOMIZE USR settrack: RANDOMIZE USR load 
LET start=FEERK . (bufferc-lz) -25956x*PEEK (buffer+13) 
6400 LET length=PEEF (Gbuffer-az2) -2596*FEEK (buffer+23) 
6410 LET slinezFEEkK (buffer+1l7)+256*#FEER (Cbuffertigo+i: IF sline 


mé) THEN LET 


sline- ] 


6420 PRINT chsd$*€nos"  "setarti" "lengths TAR 261: 
6425 LET start=O: FOR m=1 TO LEN d£(n)-1: IF d#(n,m)="." AND (df 
emamt ide "gn OR d*(in,mt*1)-x"A6") THEN LET tarts] 
64:30 NEXT m 
6425 IF start=O THEN PRINT $chs:sline 
64:557 IF gstart=1 THEN PRINT Sch 
6460 IF INKEYSz"n" THEN GO TO 6000 
6470 IF INKEY#="m" THEN GO TO Sooo 
6900 IF PEER 2266094 THEN PRINT #1;AT O,O0: "Continue Menu 
"s PRINT #13AT 1,O0:a£( TO 320: PAUSE os PRINT &1;AT O,O0;" ເ 
ress M for Menu": PRINT AT X,O0sa$0 TO 608): PRINT AT 3,04 
6850 NEXT n 
6860 PRINT TAB Sa "Last program on disk" 
6900 BEEP .1,10: PRINT *1:A4T 1,0:" Next Disk Menu | 
4910 PAUSE © 
6920 IF INKEY#2"n" OR INEKEYSXzs"N" THEN GO TO 6000 
4920 GO TO SooQ 
7000 STOF 
79300 REM Load a Track 


7511 
ad 

7550 
7600 
7601 
RITE 


PORE track,number: RANDOMIZE USR settrack: RANDOMIZE USR lo 


RETURN 
REM Save a Track 
CLS : PRINT AT 10,63 "Writing to track "snuamber''" Remove W 


PROTECT sticker, then press any key" 


“າໃ. 
76604 
7611 
ve 

7650 
BOQ 
BOLO 
9015 
eaoxo 
SAS Medw 
GORO 
8GoA40 
DO 
BLO 


¥ NEXT Nt 


BI99 
FOO 


LEERI 


ໆ010 
ບວດ 


key to save to disk,"''" 
USE o 


lr LINKE: UU THEN GO TO 7603 
PAUSE oo 

PORE track,numbers RANDOMIZE USR settracks RANDOMIZE USR sa 
RETURN 
STOP 
INFUT 
PRINT #4: 
LET. desh 
LET hsh-*oa 
LET heh 
FORE dreiwve,h 
RETURN 

FOR N=4 TO 17: 
RETURN 


"Drive 0 to A 9 
GO TO ຕ 


"sh 


FOR T=O TO 31s LPRINT SCREENS NEXT 1 


ON, Tas 

STOF 

CLEAR 1 "up 
FA 


LEIT ods4: PRINT AT 15,9: "SAVE ROUTINE" “7 Fress 


or ""T"" key to save to tape": 


IF INKEY$z"t" OR INKEY#="T" THEN LET ode 
PRINT #od:s SAVE "doctor. BRI" LINE 105: RUN 


br opor am Name: Disk Directory Repair 
ເ ລຕ!“ ຕາສ! "e Names jeordge Chambers 


ຍດ” ແຕງ Original Program 

Keyed bys (seorge Chambers 

Date Keyed: Scarborough, Ontario, 1988 

Note: lar ken utility for DSDD drives only 


PROGRAM LISTING 


i100 REM Disk Directory Repair for the LAREEN system 

110 REM By D, Chamber ss 14 Richome Court 
Scarborough, Ont. CANADA Mik Avi 

120 REM Use to reconstruct a damaged Directory (Track ©) 

1320 REM Data statements contain the"RHMDOS,CZ" Code. 

126 REM For use with the DSk4oo system of 5090 bytes/track 


using DD drives i.e. tracks 

140 GO TO 140 

160 RESTORE 210 

170 FOR nzé3000 TO 63104 

190 READ a: FORE m,a 

190 NEXT n 

210 DATA 195,43,246,195,72,:246,195,104,246,2 າ 205,98, O,201,58 
c0 DATA poe ,0,251,201,205,22,246,58, 176,9 2,50, 29,32,205,126 
S420 DATA 0,205,1225,0,:233,112,252,17, 155,224, 1,0,20,237,176 

ZO DATA 195,3 ວ? ເ 29,22,23,156,2 4 
290 DATA 17,112,352,1, Q,20,2 357,176,205,150,0,205,126,0,202 

60 DATA 120,0,1935,380,. 246,208, 32,2 246,205,129, 0,205,132 KW 

270 DATA 112,22,17,156,224,1,9,20,227,176,195,38,246,201,0 

ZO DIM a€079,9)8 DIM o&# 079,99) 8 DIM be (9): DIM d# (254) 

"ງດູ LET trace22728: LET nexttrack#63006% LET loadbuf=62000: LET 
eavebufmséexoos 

410 LET D79: LET ezi: LET felts LET bufferz579500: LET name=3768 
8: LET tracknos35769 

Al BORDER 1: PAPER ds CLS 

Ae PRINT AT 2,4: INE 24$ FAPER 6: LAREKEN DISK UTILITY vi.2"s FA 
PER laa TAB 23 FAPER 6: "Directory (Track ©) Recovery": FAFER 1,, 
TAB 73 PAPER 6: "Hy George Chambers” 

wad LNE 3: PLOT 06,1080: DRAW O,62: DRAW 295,0: DRAW O,-62: DRAW 
edel y e 

A26 INE 6: PLOT 8,114: DRAW ©O,50: DRAW 228,0: DRAW O,-—-95O: DRAW 
wits ys INK 7 

240 INFUT "Drive # (0-3) "adres PRINT #4: GO TO dr 

a0 PRINT AT LO,O;d#sAT 14,0; "Insert defective disk in drive "າ; 


dr “ "and press any key to start": PAUSE ດ 


A60 REM Ficking program names off each successive track 
470 FORE trac,1: RANDOMIZE USR loadbuf 


AGO PRINT AT 10,08 0% 
490 PRINT AT 10,008: AT 1O,1¢ "Lifting names off disk tracks" AT 


12,83 "Track Program" 
400 PRINT AT 14,94 "No, Name" 


410 FOR nsi TO 79 
415 IF mei AND FERK S730020 AND PEEK 575010 THEN LET n=792 GO 
TO 490 
420 LET d=n 
450 FOR mel TO 9 
440 LET af (n,m) CHR PEER (CS7501+M) 
450 NEXT m 
460 PRINT AT 16,9:ni" "safn) 
ABO IF nz79 THEN RANDOMIZE USK nexttrack 
490 NEXT n 
S00 REM Flacing Used/Free track record in buffer (Track ຜ) 
2501 PRINT AT i1O0,O0xd£s;aàT 14,14"Instell a newly~formatted disk"'' 
TAB ຕງ "ລາຕ press any key": PAUSE oO 
OG FORE trac, ,O: RANDOMIZE USK loadbut 
0:3 PRINT AT 10,0&d$£206T 14, ໃໄ "Now re-insert defective ຕາສະ” “ “ໃດ 
Zi and Fress any key to continue": FAUSE o 
S04 INPFPUT "Enter Disk Name's pÆ 
O6 LET i ee k+ CHR © 
407 FÜR isi TO LEN iX: PORE (6199941) CODE i#¢ids NEXT i 
220 FOR ກະດ TO d 
aO FORE $7t5«4kn, 245 
4o NEXT n 
www REM Compile the program names into C£ array 
60 FRINT AT 9,0: df AT 9,903; "Reconstruction of the directory wil 
l take a couple of minutes" ‘TAB 10: Please wait" ’ ‘TAR 4: "Compil 
ing program names" 
270 LET c@ Cl) eat (1 ) 
S 9o FOR m=2 TO d 
JIO LET b#eak Cry) 
600 LEIT fag 
610 FOR msi TO e 
620 IF bacem) THEN LET f=] 


G30 NEXT m 
640 IF f-0 THEN LET eseti: LET c#(e) =bs 


450 FRINT AT 16,11:5c*(m) 

660 NEXT n 

670 REM Foke pgm names into butter (Track ©) 

675 PRINT AT IF, 0rd AT 14,0: "Putting track names in directory" 
680 FOR nsi TO e 

6905 FAUSE 3o 

690 FOR mei TO 9 


700 FORE name*m,CODE c$n,m) 
710 NEXT m 
720 LET namesnames34 


730 PRINT AT 1ó6,11:c$ín) 
740 NEXT n 
750 REM Foke track numbers into buffer (Track ©) 


760 LET fei 

770 PRINT AT i13,0sd£$s6T 14,0; "Putting Track No's in Directory" 
780 FOR n=1 TO e 

790 LET fel 

BOO FOR kel TO 79 

B10 IF c£(no)maX(k) THEN FORE tracknot?#,ks LET fefed: POKE track 
note , 249 

820 NEXT k 

A0 LET tracknostreacknodax4 

B40 PRINT AT 16,11gc*n) 

S50 NEXT n 

BOU PRINT AT 9,O0scd£i&àT 10,1: "The directory has been rebuilt"''' 
PAPER Sa INE i "Remove WRITE-PROTECT label from defective disk 
and install. 7"''" Press a key to save to track © "s PAUSE O 
870 POKE trac,O: RANDOMIZE USK gsavebut 

880 PRINT AT 11 Osd#r AT 13,95 າດສ COMPLETED": PAUSE o 

890 PRINT ''"Another Disk? (Y/N) າະ FAUSE ລ 

LOOO IF INEKEYGdXz-"Y" AND INKEY#< ey" THEN FRINT #4: GO TO 4s PRIN 
T #4: NEW 

1010 RUN 160 
gooo INK O: FAFER 7: BORDER 7: CLS : LIST 
8999 STOF 

9000 CLS : LET ade4: PRINT AT 15,93 "SAVE ROUTINE"''" Press "Din 
key to save to disk,"''" Qr "'"T"" key to save to tape": FAUS 
E o 

9010 IF INEEYSZz-"t" OR INKEYdXs"UT" THEN LET ods2 
9020 PRINT *ods SAVE "repair, Bl" LINE 10 


Program Names: Disk Label Maker (from CAT) 


broor amer "e Names George Chambers 
Sources Original Program 
Keyed bys George Chambers 
Date keyed: Scarborough, Ontario, 19?88 
Notes Larken utility 
PROGRAM LISTING 
100 RANDOMIZE UBA 100: OFEN #4, "dd" 


108 
110 
115 
1:20 
nter" 


LZ 


PRINT #43 OPEN WA, loi 

PRINT #4; FORE 16090,3231 

CL$ s PRINT TAB 10 "LABEL MAKER" ” 

PRINT ''" This program prints labels on a large pri 


PRINT '" Because it does a screen copy it can handle only 


disks with about 36 program names" 

125 INPUT "Drive #¢(0—4) "sdr PRINT #4: GO TO dr 

127 PRINT '''"Install disk in drive າໄສ ກຸກ“ "H then p 
ress any key": PAUSE © 

AO CLS : PRINT #4: CAT ານ, 

140 FOR n=O TO Sis LRPRINT SCREENS (C(O ym) a2 NEXT n 

130 LPR INT 


160 
170 
180 
190 
"00 


200 


FOR wee TO 21: FOR veo TO Ai 

IF SCREENS (umet " THEN LET usäi 

LPRINT SCREENS (ພພນ) 3 

IF CODE INKEY#=£1°2 THEN LET well 

NEXT ve NEXT ພ 

CLS s: PRINT AT 10,0: "Press ENTER to run program again"''"or 


» Press ""P'"" for RAMdisk menu”: PAUSE O: IF INKEY#="p" OR INEKEY 


ZE om ID EU 
$10 
(399 
GOOO 
key 
EO 
9010 
7(.0 
90350 


THEN PRINT #4: GO TO 4: PRINT #4: NEW 
RUN 
GTOF 
CLS : LET odszs4: PRINT AT 15,9; "SAVE ROUTINE"''" Presse ານນາ 
to gave to disk," ''" or ""T"" key to gave to tape": FAUS 


IF INEKEYSZz"t" OR INKEY #9" T" THEN LET 00:2 
PRINT #ods SAVE "labels. Bi" LINE 100 
PRINT sod: SAVE "FPRCODE.CLI"CODE 64256,1111 


File Label Maker 
George Chambers 
Original Fragram 
George Chambers 
Scarborough, 


Program Names 
Programer’ s Name: 
Gources 

keyed bys 

Date keyed: 


Ontario, 


Nu uud 


198 


for the LARKEN system 


Note: Larken utility 
PROGRAM LISTING 
100 REM File Label Maker vi.1 
110 REM Hy G. Chambers 


Scarborough, Ont. 


120 
150 


REM Use to make a printout 
REM Data statements contain 


140 
58 3 


with the DSkA400 
tracks 


REM For use 
ng a DD drive iae. B0 


14 Richome Court 
CANADA MIE 2Y1 


of disk files 
Drive Control Code. 


system of 3090 bytes/track 


150 RANDOMIZE USRA 100: OREN #4, "eel" 
170 LET o#=" d 
180 RESTORE VAL "210" 
190 FOR nsVAaL "63000" TO VAL "63047" 
200 READ a: POKE mya 
3210 NEXT n 
2240 DATA 195,43,246,0,9,0,0,90,0,242,205,98,0, 201,58 
230 DATA 100,0,2951, 201,205,33, 246,58,176,92,50,29,32, 205,126 
240 DATA ©, 205,123,0, seg hile, 32,17, 156,224, 150.20, 2074176 
UO DATA 195 , 38 , 246 
260 DIM ຕ ເອດ, 11) 
470 LET traceVAL 2357280": LET loadbuf=VAL "63000 
280 LET name=VAL "37688" 
290 BORDER PI/PIs PAPER FI/FI a CLs 
200 PRINT AT VAL "2" VAL "ລາ INE VAL "2"s PAPER VAL "6"x" LARE 


EN DISKE UTILITY "i 

abel-Maker "s PAPER VAL. 

orge Chambers າ 
$10 INK VAL. PLOT NOT 

RAW VAL. "SSS" a NOT FI: DRAW NOT 
FI 


AQ 


How ity is 
nl Li 


PI, VAL. 


INK VAL "6": 
DRAW VAL "238" 
T Pols INE VAL 

uad LNFUT "Drive 


PLOT VAL "ën, MOL 
NDT PI: DRAW NOT 


1! “7 (ໄ 


P (O-A) T "sede: 


PAPER PI/FI;,,TAB VAL 
"1",, TAB VAL 


PT, VAL. 


PI,VAL " 


PRINT #4: 


"YO"; ຕດຕ VAL 
PAPER VAL "6's 


mes u L. 


WA / H Hy (Ses 


Log": DRAW NOT FI YAL "62" D 
"ຕ່ໄ DRAW VAL "255". NOT 


"214": DRAW NOT PI,VAÀL "SO": 
OO": DRAW VAL “ມວາ NO 


GO TO dr 


ma PRINT '''''"Install disk needing a label’ " owe than Pres 
So key"': PAUSE NOT FI 
44g LF INKEY€Z2"" THEN GO TO X35 


AQ 
ar ge 
A0 


FORE 22653,0: PRINT AT 12,0, OVER OscfictióT 14,08 INE 734'"L. 
ar emali printer? (L/S) "gs PAUSE ລ 
LET chefs, IF INKEYS£z"I" THEN LET ch=S: RANDOMIZE USR 100: 0 


FEN Sch, "lp" 


IF INEKEYSXz^"" THEN GO TO 399 

PRINT AT 14,0; DNER ດແທ້; FAUSE SOs PRINT AT 16,08 "FRrint Nu 
of columns (1-3) "is PAUSE Os: LET p=CODE INKEY#$-48 

FRINT AT 16,9; OVER Ose8: PAUSE Do 

INPUT "Bort (Y/N)? "ras 

INFUT "Enter Disk Title" sme 

PRINT Sch 

REM Picking pam names from buffer (Track ©) 
FORE trac,NOT FIs RANDOMIZE USR Loadbut 

FRINT schsg"Disk Name: "nt: PRINT Sch 

FOR me PI/PI TO VAL "9o" 

IF PEEK (mamet T) =NOT FI THEM LET espel: LET m=VAL "91's DU 


TO VAL "S0" 


460 


IF “ຜເ (mamet t IZPI’ VAL "254" THEN LET name=namerVAal "XA" 


GO TO VAL "450" 


470 
4900 
490 
m OQ 
uo 
DZ 
DA 
EO 
Je 
260 
ZO 
go 
eo Q 
GOC 
610 
eso 
GA 
040 
650 
660 


FOR msPI/FI TO Val "9" 

LET d£(in,m)msCHRE PEER Creamer) 

NEXT m 

LET namesname-trVaL. "SA" 

PRINT AT 11,11scd£$£n)20;" " 

NEXT N 

IF e*z-"Uy" THEN GO TO $90 

FRINT AT 11,11: FLASH (sit Sorting "s: FLASH o 

FOR iz1 TO (e-i) FOR ji TO e 

IF dèi) sdt (j) THEN GO SUB S80 

NEXT ge NEXT is GO TO 590 

LET asxsdEÉEj s: LET d£oj sdÉ£oi)s LET ຝ#ເງ ) ະຮ! RETURN 

FRINT AT 11,41," n 

FOR ຕະ TO e 

IF INT í(n/p)sin/p) THEN FRINT #cehed#in, TO 10): GO TO 620 
PRINT *chid€n): 

NEXT n 

FRINT HWchs PRINT &chs PRINT Sch 

DIM FEVAL "mi 

PRINT AT VAL "6", VAL "A'a Label finished"''"Prese ໄ key fo 


ro another starct,or"''"FPreess P to return to RAMdisk"s: FAUSE 0 


665 
RINT 
670 
ARO 
BOOO 
3999 
9000 
key 
EO 
FOO 


OZ 


PRINT #4: CLOSE #5: IF INKEY£X-"p" THEN FRINT #4: GO TO 4: ຕ 
ໄາ: NEW 

DU TO VAL "280" 

STOP 

INE O: PAPER 7: BORDER 7: CLS : LIST : STOF 

STOP 

CLS LEIT ods4s PRINT AT 15,9, "SAVE ROUTINE"''" Frags ານນາຍ 
toO gave to disk," ''" Qc ""T"" key tO gave to tape": FAUS 


IF INEKEYSXst" OR INEEYdGXzUUT" THEN LET ods2 
PRINT dod: SAVE "labels. BI" LINE 100 


Program Name: Disk «=t Tape Backup Utility 


Fy coc amer "e Names 3eornrdge Chambers 

Source: Original Frogram 

Keyed bys George Chambers 

Date keyed: Scarborough, Ontario, 1988 
Notes Larken Utility Spectrum Version 


PROGRAM LISTING 


JOO REM Tape Backup utility 


110 REM Hy G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA MIE 2Y1 

120 REM For use with the Lepas system of 5120 bytes/track. 

130 REM Use in Specteum mode 


140 BORDER Js PAPER i1: CLS 

150 PRINT AT 2,43 INE 3$ PAPER ຜເ "LARKEN DISK UTILITY vi.li"; FA 
PER 1s,,TAÓB Bn PAFER 63" Disk to Tape Back-up "s ດແຕ 1,,7TAB 7: 
PAPER ©: "Ry George Chambers" 

160 INE 3: PLOT 8,108: DRAW 0,62: DRAW 229,00: DRAW O,-—-6:2: DRAW 
Pg O 

170 INE 6s PLOT 16,114: DRAW O80: DRAW 222,01 DRAW O,-50: DRAW 
waa yg Oe INK 7 

180 RANDOMIZE USR LOO: OPEN #4, "de" 

190 FRINT AT 12,3; "Wait... loading code" 

200 PRINT #4: GO TO Os LET deseo 

219 REM MINIDOS Control Code 

ZA RESTORE 240 

SQ FOR ns44000 TO 44119: READ a: FORE n,a: NEXT n 

©4090 DATA 195,249,171,195,7, I7241094273 172,195 

250 DATA 56,172,195,75,172,242,205,998,0,201 

260 DATA 58,100, 0,251,201,208,239, 171,58, 124 

270 DATA 171,50,29,32,205,126,0,24, 227,205 

30 DATA 239, 171,58, 124, 171,50,29, 32,205 4129 

290 DATA 0,58, e adu ys 124, 171,24,2 217 , 205 

200 DATA 239,171,175,90,3 <... ກ 358 

A410 DATA 32,32,79, 65953551 Bye yg ພາ BO 

A0 DATA 195,1,0,20,237, 176,2 s, 188,205,239 

AGO DATA EE 195,17, 11:2,52,1,0,20 

240 DATA 227, ee n pos 293.171 

250 DATA 42, 144,171,78,25,70,24,158, Q, 

A60 LET Sos LET oasis LET ຜະລ LET ວລາ 

400 LET settrack=44000: LET nexttrack=44003 

410 LET loads44006: LET save=44009: LET track=43900 

AO LET bufferzssSoooos: LET bufflenth=Si2o 

440 DIM d#¢S20)5 DIM ok) 


470 
Tape 


now 


s. Load from 
FLASH Lors FL 


PRINT AT 10,5:"1. Save Disk to Tape"sAT 12,31: 
to Disk": AT 14,32", Change Drive # ~ Now "s 


ASH OAT 16,34 "4. Instructions" AT 10,5:2"5. Return to RaMdisk me 


nua"sAT 2O,93 "Press 


480 
490 
OQ 
wid 
ໄ) 
ນ.) 
790 
1000 
1010 
1020 
FOR 


T USE 


1050 
nus 

1040 
1050 


a key" 
THEN PAUSE 
THEN GO SUE 
THEN GO TO 
THEN GO SUB 
THEM PRINT #4: 


IF INKEYXz'"1" 
INEEYsd:m'x" 
INKEN dss 
INKEY*Xz"A" 
INKEN #2" " 
TO 470 
PRINT #4: GO TO 4s PRINT #4: 
REM Saving Digk to Tape 

IF INKEYS<>"" THEN GO TO 1010 


20s GO TO 1000 
BOLO 

200Q 

ASOQOs RUN 
GO TO 4: 


PRINT #4: NEW 


NEW 


IF PEER 23736-5168 THEN PRINT AT 12,O;0¢: LET a=4: LET Dei: 


i=10 TO 15: PRINT AT i ii INE a; PAPER bs FLASH 1s" YOU MUS 
SPECTRUM MODE "s LET ຜະລ LET ລະເ LET begs NEXT i 


IF PEEK 257326452168 THEN FRINT ''TAB 43 "Presa any Fey for me 
FAUSE Os PRINT #4: GO TO 4: PRINT #4: NEW 
PAUSE 20: LET numbers 


PRINT AT 10, Osd#sAT 12,0; "Imetall disk in drive "de "Plar 


e fresh tape in recorder"  ‘'"'Start recorder...and press a key": F 


ALS Es, 
1060 
1070 
LET 
1080 
1090 
CLET 
1100 
1110 
1120 


Qo 

BEEF .59,20: PAUSE 30: POKE 22726,1801: GU SUB 7500 
TF number=O THEM LET sidesPEER DOO, LET tracke=sFEERK QOORGi! 
onsicdezapso (sicde-3): LET tpd=FPEERK tracks*side 

PRINT AT 10,0:cd0* 

LET gai: FOR nsebuffer+2 TO butffer-105$ 
ະຜ +]: NEXT n 

IF numberzoó THEN LET g#="Directary" 
IF CODE g##O OR numbercztod THEN GO TO 4000 

PRINT AT 18,lad#¢ TO 9604A5T 18,1; "Saving "noël @ 


LET g#(g) SCHR PEER n 


track# " 


s number 


113X0 
1140 
1190 
UO 
LOLO 


Ot 


Q0 
“on uM 
QAO 


2040 


r side 


ACC) 
2060 
ZU ZU 
A QEO 
A090 
100 
KD 

2110 
(ASH 

FOR 


LET tracks=FEEK 
check 


LET 


L Loading to disk Completed": 


SAVE gECODE buffer,bufflenth 
LET oumber=number tansi cde 
PAUSE 200, GO TO 1060 

REM Loading tape to Disk 
PRINT AT 19,0: GO SUR 7500 LET sidewPFEER DOQ 
20021: IF tracks=O THEN PRINT "Wrong format, 
disk, and Press any key to re-start": FAUSE Os RUN 
PRINT AT 10,O;d#: FRINT AT 1O,1la "Start tape & leave running 


" : dr 
" : side’! 


PRINT AT 11,12:'"5aving to Drivet 
FRINT '" On this disk...Sides 
"tracks 

PAUSE 80 

LET number 
PRINT AT 19,0s;ds*( 
LOAD ""CODE HOQUQ 
IF number=O THEN GO SUB X120 

IF number=0 THEN LET side=FEER 30020; LET onside=ABS 
tracks=FEERK SOO021: LET tpdsPEER tracks*side 

PEER SQO0O2 200 THEN PRINT AT 18,O0;d#¢ TO 962):65T 198,33 FL 
FLASH O° TAB 9: "Frege a key"t 
edges NEXT ns ຕດຕ os GO TO 40 


Tracks pe 


TO 64) ¢AT 19,13 "Loading next tracks"s 


(sicdeae- 
IF 


n=l TO S: BEEF awalo: BEEF 


OO 

2120 LET gml: FOR nzsbuffer-2 TO buttertiOon LET g# Cg) =CHR# PEEK n 

LET geq*l:i NEXT n 

2130 IF numberso THEN LET g#*"Directory" 

2140 GO SUR 7600 

2145 IF numbersó THEN GO SUB X120 

2150 PRINT AT 16,O0sd#¢ TO 140) AT 16,15 "Saved saaniga" on track 
"snumber 

2160 LET number =number tongi de 

2170 GO TO 2070 

A000 INE O: PAPER 7s BORDER 7: CLG 

4010 PRINT TAB 9: "Instructions" ” 

2020 PRINT '" This program has been designedto copy a complete 

disk to tape,and then to load the tape back onto another disk," 

BOZO PRINT '" It works in the Spectrum mode, "hie is because the 
LOAD / SAVE routines are more accessible in the Spectrum ROM," 

4040 PRINT '" The program saves to tape on a track by track ba 

Sie." 

2050 PRINT '" The program contains a block of code (data state 


mente), This if a mini DOS used to control the disk system. " 
A060 PRINT ''" Press a key to continue": PAUSE © 


A070 CLS : PRINT '" Although the program is trcans-parent as to 

the type of drive that is used, care must be takento ensure tha 
t the same drive type is used for the subsequent load as was ພ 
sed for the initialsave. " 

ROBO PRINT '" This is because the directory which defines drive 
type has not been modified to reflect a different drive type." 


2090 PRINT '" Therefore, although the disk format is for the 
one drive typethe system interface, in lookingat the directory, 
Sees it as another type. CRO errors will result." 


4100 PRINT “ນ Press a key to return to menu" 

5110 PAUSE Oo: CLS RETURN 

T120 IF PEEK SOOSO«L-side OR PEEK SOO21ZCtracke THEM PRINT AT 10, 
OyciExT 10,298 FLASH 1:"Disk format not compatible"; FLASH O''"Ta 


pe gave ier"'" "PEEKE 200215 " tracks per side on "PEEK SOO2O0:" 
Sides ('s" AND PEERK $002052)''"Disk formatted tos"'" “stracksys " 
tracks per side on "sides" Side": ("s" AND sides2)''" Press an 


y key for rerestart": FAUSE os GO TO 3122 

3121 RETURN 

4122 IF INEEYS$z"y" OR INKEYdX:z"Y" THEN POKE &SOoOZ2O,sides FORE 5002 
L,terackss RETURN 

S130 RUN 

4000 LET xz1: LET g#="NoMore"s FOR nzbuffer-2 TO buffert+7: POKE 
n,CODE g# (xd: LET xscrti: NEXT n 

4040 FORE 3SO0000,200: SAVE "MoMore"CODE butter, 10: PRINT AT 12,03 
dE AT 15,53 FLASH Ls"Disk saved to tape"' FLASH ດ; ‘TAB 9: "Press 
a key"s FOR mei TO S: BEEF .S,10: BEEP ,5,20:: NEXT n: PAUSE 0: 
30 TO oa 

6000 PRINT #4: GO TO ດ 

6010 FOR m=VAL "i10" TO VAL "21": PRINT AT n,NOT PIscE: NEXT n 
6020 PRINT AT VAL "15",VAàL "6": "Disk copy completed"''"Press P 
key for RAMdisk menu, oar another key to copy next disk" 

6030 PAUSE NOT FI 

6040 IF INEEYSZ2"P" AND INE EY#< > "pb" THEN RUN 


6050 PRINT #4: GO TO 4s PRINT #4: NEW 

7500 REM Load a Track 

75910 FORE track,numbers RANDOMIZE USR settracks RANDOMIZE USR lo 
ad 

7920 RETURN 

7600 REM Save a Track 

7610 FORE track, numbers RANDOMIZE USK settrack: RANDOMIZE USR sa 
Ve 

7620 RETURN 

7620 STOF 

gooo INK Os PAPER 7: BORDER 7: CLS : STOP 

BOLO INFUT "Drive O to A 7" "ggr 

SOLO PRINT #4: GO TO dr 

BOBO RETURN 

S999 GTDF 

9000 CLEAR : LET od=4: PRINT AT 15,94 "SAVE ROUTINE"''" Press ""D 
"U" key to gave to disk,"''" ວ່າການ key to gave to tape": bo 


USE 
9010 
9020 


IF INKEY#=2"t" OR INKEYEXz"T" THEN LET ode? 
PRINT #od: SAVE "tapsav.RBG" LINE 1003 RUN 


Frogrcam Names Disk «s Tape Backup Utility 
"(ໆ amer "e Namen George Chambers 


oou cet Original Program 

keyed by: George Chambers 

Date keyed: Scarborough, Ontario, 1988 
Noto: Larken Utility TS 2068 Version 


PROGRAM LISTING 


100 REM By D, Chambers 14 Richome Court 
Scarborough, Ont. CANADA Mik 2Y1 

1O5 REM Tape Back-up utility 

110 REM For the TS2068 

111 REM For use with the LEDOS system of 5120 bytes/track. 

11:2 REM Uses a subset of the Spectrum ROM to Save and 


Load headeriess files 
140 BORDER 1: FAFER 1: CLS 
150 PRINT AT 2,44 INE @: PAPER ຜໄ LARKEM DISK UTILITY v2.0": FA 


FER 1:,,T6B 3 PAPER ດາ" Disk to Tape Back-up "s FAFER 1,,TAÀB 7: 


PAREN ຜະ ຕນ George Chambers" 

L60 INE Ae PLOT 8,1090: DRAW O,62: DRAW 229,0: DRAW O,—62: DRAW 
— Au LU 

170 INE 6: PLOT 16,114: DRAW 0.50: DRAW 322,0: DRAW O,-50: DRAW 
wane gOS INK 7 

180 RANDOMIZE USRA 100: OPEN #4, "dd" 

190 PRINT AT Le, Se "Walta a. doading code" 

200 PRINT #42 GO TO Os LET deed 

210 REM  MINIDOS Control Code 

mae) RESTORE 240 

200 FOR ຕະ44000 TO 44119: READ as POKE n,as NEXT n 

240 DATA 195,249,171,195,7,172,195,27,172,195 

220 DATA WO 172,195,475, EE 98,0,201 

260 DATA S9,100,0,2 514,201, 05, 249 , 171 , 58, 124 

270 DATA 171,50,29,32,205,126, Oy ສາ I7, 205 

280 DATA 249 ; 171,98, Ee 29 , um, GO y 129 

2970 DATA ໆ 58 , 29 , 1 ເ wey 171,24,2 17,205 


WOO DATA i? ງ 1 71 y f 75,50, KA gud y ad "ວາ 12540459 
A10 DATA 32,32,79, 6,0,353,1 1 a aan 4 1.7 4 GO 
320 DATA 195,1,0,20,237, 176,24, 188,205 23 


mea DATA T7132 BO, 195,17, 112,32,1, 20 

225 DATA 237,176, 205,120, 0,24, Vig pM 

240 DATA 42,144,171,70,225,70,24,158,0,0 

ADO REM Spectrum ROM (Load/Save) 

AM RESTORE 360: FOR n=44200 TO 445451 READ a: POKE n,a: NEXT 


X60 DATA O,0,62,255,221,52,80,195,17,0 

X61 DATA 20,205,186,172,201,0,0 o, 33,55 

*62 DATA າຟ ux 10 28 , 51 ,205, 127 ,40 353 
X63 DATA 152,12,8,19,221,43,242,62,2,71 

X64 DATA 16,254, 211,254,238, 15,5, 164 , Ap, 23 
365 DATA 245,5,37,242,208,172,64,47, 16,254 
266 DATA 211,254,62,12,6,55,16,254,211, 254 
567 DATA 1,14,59,80,111,195,255,172, 22.179 
X68 DATA 40,12,221,110,0,124,175,102,62,1 
369 DATA 55,195,229, 173,108,2 , 244 , 131,203,120 
370 DATA 16,254,48.4,6,66,16, 254,211,254 

*71 DATA 6,62, 52,239 5,175 60420542 . 194 

372 DATA 12,172,927,221,25,6,49,62,127,219 
373 DATA 254,31,2 208, 122,60, 194,246, 172,6,89 
374 DATA 16,254,201,245,58,72,92,230,56,15 
375 DATA 15,15,211,254,62,127,219,254,21,251 
276 DATA 56,2,207,12,241,201,20,8,21,247 

377 DATA 62,15,211,254,3 A3,55,172,92 2,219,254 
378 DATA 71,220,352, 246,2,79, 191,192,205, 22% 
279 DATA 173,48, 250,23,21,4,16, 254,43, 124 

280 DATA 101,52,249,205,919,177, 48,235,5, 156 
381 DATA 205,219,173,48,2280,62 198, 184,48,22 
382 DATA 36,32,241,6, 201,205,22z,172,48,213 
*B* DATA 120,254,212,48,244,205,222,172,208,121 
384 DATA 238,2,79,28,0 6,176,24,21,8 

385 DATA 22,7,40,15,221,117,0,24,15,20* 

S86 DATA 17,173,192,121,51,79,19,24,7,72 

387 DATA 126,0 ,173,192,221,25,27, 8,6,178 


X88 DATA 46,1,205,219, 173,208, 62,203,184,203 
389 DATA 21,6,176,210,194,173,124,173,1023,122 
X90 DATA 179,22,202,124,254, 1,201,205,722,173 


291 DATA 200,62,22, 61,22,255,167, 4 200,62 

A972 DATA 127,219,254,21,2708, 169, 250,22, 40, 243 

agn DATA 121,47,79,230,7,046,8,211,254,55 

ARA DATA 201,0, ດ da eg OO 

400 LET settrack=44000: LET nexttrack=4400%8 

410 LET loadz44006: LET &savecado09: LET track=43900 

AO LET bufferza3oooos: LET bufflenth=5120 

440 DIM dë IRO): DIM g*C9) 

470 FRINT AT 10,33 "1. Save Disk to Tape"sAT 12,2$9"2. Load from 
Tape to ວ E 14,23"3, Change Drive # — Now "s FLASH 1: ຕຜ: FL 
ASH OAT 146,235 "4. tnetructians e 18, An", Return to RAMdisk"sA 
T 20 "Press. a key" 

4930 IF INKEY#e" 1" THEN FAUSE os GO TO 1000 

490 IF INEKEYEX-z"Z" THEN GO SUB BOLO 

WOO IF INWKEYSXz"2" THEN GO TO 2000 

23910 IF INHKEYSx"A4" THEN GO SUE ZOOO: RUN 

wae. IF INKEYSXz"Z" THEN FRINT #4: GO TO 4: PRINT #4: NEW 

uo GO TO 470 

790 PRINT #4: GO TO An PRINT #4; NEW 
1000 REM Saving Disk to Tape 
LOO IF INKEYS< 2°" THEN GO TO 1010 
1040 PAUSE aO: LET numbered 
1050 PRINT AT i1ó,O0sd£:;àT 12,0:"Inetall disk in drive "xdrce''"Plac 


ລ fr 
AUSE 
1060 
1070 
£LET 
1080 
10910 
LEIT 
1100 
1110 
1120 
ໄ num 
lloc 
1140 
1190 
"000 
010 
Ot 
che 
aA us 


"ORO 
2040 
r ei 
oC) 
A060 
SU ZO 
2081 
2090 
2100 
me 
A110 
M 1; 
key" 
TO ຜ 
ak rt 
ໄ ໄ. 
21450 
2440 
- 145 
luo 
d in 
2160 
24170 
AQOQO 
A010 
O20 
disk 
OX 
eu a 
eu, 
A040 
to 


OSC 


esh tape in recorder"''"Start recorder...and press a key": P 
Q 

BEEP 5,20: PAUSE Or 
IF numbers THEN LET 
onsicdesamps (eide-3):1 
PRINT AT io,O0x:d* 

LET gmi: FOR ne=buffer+2 TO Dbuffertio: 
q-g*i1:s NEXT n 

IF mnumberzo THEN LET g#="Directory” 
IF CODE g£zoó OR number zetpd THEN GO TO 4000 
PRINT AT 18,lad#¢ TO 96) 4AT 18,1la"Saving "rgf" 
Der 

RANDOMIZE UBR 44200 

LET Number =number+ongi de 

PAUSE 2002 GO TO 1060 

REM Loading tape to Disk 

PRINT AT 19,08 LET numbers: GO SUB 7500s LET sidesPEER $00 
LET tracks=FEERK S002 1: IF tracks=0 THEN PRINT "Wrong format, 


G0 SUB 7900 
Side=FEEK &oO20s LET tracks PEERK 
LET tpdstrackssseicdae 


530021 


LET gE (g) CHR PEER n 


G tracks 


ck disk, anc Fress any key to re-start": PAUSE O: RUN 
PRINT AT iO,O05sd$£: PRINT AT 10,1; "Start tape & leave running 


PRINT AT Lil, ,l2s"Saving to Dreivet 
PRINT '" On this disk...Oides "y 
de "sgtracks 

FAUSE ຫດ 

LEIT number s0 

PRINT AT i19?,O0scdX€( TO 64) AT 19,1:"Loading next Tracks"; 
PORE 44212,78: FORE 44212,172: RANDOMIZE USR 44200 
IF number=O THEN GO SUB 3120 

IF numberzoó THEN LET gide=FEEK 300280: LET onsidesass 
LET trackssFEER SOO21: LET tpd=tracks*side 

IF FEER SOOOOs200 THEN PRINT AT i19?,1sd£( TO 32) TAB An FLAS 
AT 19 "Loading to disk Completed": FLASH O'TAR 9:"Fress a 


tt ; dr: 


side''" Tracks pe 


(micde- 


bt 


: FOR ກະ) TO Ss BEEP 3,20: BEEF 5,10: NEXT ms FAUSE O: GO 


OHC 

LET geis FOR nzbufferct-2 TO buffer-c-10: 
geqtis NEXT n 

IF numberzoó THEN LET gXzs"Directory" 
GO SUB 7600 

IF number=O THEN GO SUB 3120 
PRINT AT 16,0sd€(0 TO 160):0T 16,1 
umb er" 

LET number =number tonsa ce 

GO TO 2070 

TNE Os PAPER 7: BORDER 7! CLS 
PRINT TAB 9; "Instructions" ” 

PRINT '" This program has been designedto copy a complete 
to tape,and then to load the tape back onto another disk." 
PRINT '" This version (v2.1) will work on the TS20680.It us 
SpectkrunmROM m/c routine to SAVE and LORDheaderiess tape fil 


LET g£(g)sCHRE PEEK n 


Ww 
d 


"Saved ex HOER ຜາ track 


? H 


PRINT 
Control 
FRINT 


The program also contains codefor a mini DOS used 


the disk system." 
The program saves to tape on 


on a track by track ba 


td Se ` 

A060 PRINT ''" Press a key to continue"s PAUSE © 

S070 CLS : FRINT '" Although the program is trans-parent as to 

the type of drive that is used, care must be takento ensure tha 
t the same drive type is used for the subsequent load as was u 
eed for the initialgave. ” 

2080 FRINT '" This is because the directory which defines drive 
type has not been modified to reflect a different drive type." 


X090 PRINT '" Therefore, although the disk format is for the o 
ne drive typethe system interface, in lookingat the directory, s 
ees it as another type. CRC errors will result." 


4100 PRINT '" Press a key to return to menu" 

5110 PAUSE O: CLS « RETURN 

S120 IF FEEK 500204 bside OR PEEK Soo21z^trackse THEN FRINT AT 10, 

Oa ຝດ 10,28 FLASH Ts "Digk format not compatible": FLASH o''" T 

ape gave Leni" "PEEK 200214 " tracks per side on “FREER SOOROs 
" Side"g("s" AND PEER OGOO020-2)''" Disk formatted to:"'" "stracks 
UI tracks per side on "ssides" SGide"s("s" AND sicdezs2)''" Prens 
any key for restart": FAUSE os: GO TO 3122 

A121 RETURN 

mil@e IF INEKEVGExz"y" OR INKEYSXz"Y" THEN POKE £&0020,eides POKE Sook 
1,tpds RETURN 

S130 RUN 

4010 LET weis LET dgi$z'"NoMonree "s: FOR mebuffert+e TO butfert+7: FORE 
"າ, CODE qxOO03s LET xxi: NEXT n 

4040 FORE 50000,2200: FORE 44210,1: RANDOMIZE USR 44200: PRINT AT 
L2,O,dc#; AT 15,5: FLASH ls "Disk saved to tape"' FLASH O° TAB 9; "ຕ 
rese a key": FOR mn=1 TO S: BEEF .5,10: BEEP .9,20:s NEXT n: PAUSE 
QO: GO TO 6000 

6000 PRINT #4: GO TO © 

6010 FOR າະບ "i10" TO VAL "21": PRINT AT n,NOT PIsct: NEXT n 

64020 PRINT AT VAL "TS" VAL "6" Disk copy completed"''"Press F 
key for RAMdisk menu, or another key to copy next disk" 

6030 PAUSE NOT FT 

6040 IF INkEYSEzZo"F" AND INKEYXS;"p" THEN RUN 

6050 PRINT #4: GO TO 4: PRINT #4: NEW 

75900 REM Load a Track 

7910 FOKE track,ynumbers RANDOMIZE USR settracks RANDOMIZE USR lo 

ad 

70640 RETURN 

7600 REM Save a Track 

7610 FOKE track,number: RANDOMIZE USR settrack: RANDOMIZE USR sa 

ve 

7620 RETURN 

7630 STOF 

gGoOoO INK Os PAPER 7: BORDER 7: CLS : STOF 

Qo10 INPUT "Drive O to 3 7 "adr 

BOLO PRINT #4: GO TO dr 

BOSO RETURN 

(0999 STOF 

9000 CLEAR : LET od=4: PRINT AT 15,9: "SAVE ROUTINE" " "1" Frese ""D 
"U" key to gave to disk," '"" Qr ""T"" key to gave to tape": FA 

USE o 

go010 IF INKEY#e2"t" OR INKEYXEz"T" THEN LET ode? 


9gOo20 FRINT Sod: SAVE "kapsav. BT" LINE 100: RUN 


